home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qstmenus.zip / NEWUSER.Q-A next >
Text File  |  1992-06-01  |  8KB  |  268 lines
  1. PostInfo
  2. ClearScreen
  3. ChangeColor 11 0
  4. Display "|"
  5. Display "Thanks for your patience!  This is the last part to fill out.|"
  6. Display "My test of a good user is one who reads all screens and anwers|"
  7. Display "all questions correctly.  Let's see how you do.  Please fill|"
  8. Display "out this last questionaire and don't miss any questions.  It|"
  9. Display "is very important that I have correct and full information.|"
  10. Dosplay "|"
  11. Display "BE CAREFUL and don't double press the ENTER key or you will|"
  12. Display "miss answering a question and your user access will not be|"
  13. Display "raised and you won't get the Phone Verifier Key in the menu|"
  14. Display "to raise your user level.  If this happens, re-answer this|"
  15. Display "questionaire in the Phone Verifier Key [B] in the Main Menu|"
  16. WaitEnter
  17. ClearScreen
  18. ChangeColor 4 0
  19. Display "                                         ["
  20. ChangeColor 7 0
  21. Display "------------------------------"
  22. ChangeColor 4 0
  23. Display "]|"
  24. ChangeColor 11 0
  25. Display "Time you receive calls (From - To hours): "
  26. Capitalize OFF
  27. Ask 30 1
  28. If 1 = ""
  29. ChangeColor 13 0
  30. Display "|You failed the test!  Either logoff or try again from the|"
  31. Display "Phone Verifier Menu, which is under the [B] Key in Main Menu 1.|"
  32. Capitalize ON
  33. WaitEnter
  34. Quit
  35. EndIf
  36. ChangeColor 4 0
  37. Display "                                                 ["
  38. ChangeColor 7 0
  39. Display "-"
  40. ChangeColor 4 0
  41. Display "]|" 
  42. ChangeColor 11 0
  43. Display "Are you a SuperBBS or potential Sbbs Sysop (Y/n)? "
  44. GetChoice YN 2 Y
  45. If 2 = "Y"
  46. SetFlag C1 ON
  47. EndIf
  48. Display "|"
  49. ChangeColor 4 0
  50. Display "              ["
  51. ChangeColor 7 0
  52. Display "--------------------"
  53. ChangeColor 4 0
  54. Display "]|"
  55. ChangeColor 11 0
  56. Display "Computer type: "
  57. Capitalize OFF
  58. Ask 20 3
  59. If 3 = ""
  60. ChangeColor 13 0
  61. Display "|You Failed the test!  Either logoff or try again from the|"
  62. Display "Phone Verifier Menu, which is in the Main Menu 1 [B] Key.|"
  63. WaitEnter
  64. Quit
  65. EndIf
  66. Capitalize ON
  67. Display "|"
  68. ChangeColor 4 0
  69. Display "         ["
  70. ChangeColor 7 0
  71. Display "--"
  72. ChangeColor 4 0
  73. Display "]|"
  74. ChangeColor 11 0
  75. Display "Your Age: "
  76. Ask 2 4
  77. If 4 = ""
  78. ChangeColor 13 0
  79. Display "|You failed the test!  Either logoff or try again from the|"
  80. Display "Phone Verifier Menu, which is in the Main Menu 1 [B] Key.|"
  81. WaitEnter
  82. Quit
  83. EndIf
  84. Display "|"
  85. ChangeColor 4 0
  86. Display "                                                              ["
  87. ChangeColor 7 0
  88. Display "-"
  89. ChangeColor 4 0
  90. Display "]|"
  91. ChangeColor 11 0
  92. Display "Are you paying a toll, but calling in the 916 Area Code (y/N)? "
  93. GetChoice YN 5 N
  94. If 5 = "Y"
  95. ChangeColor 13 0
  96. Display "|"
  97. Display "|The Phone Verifier uses prefixes to call from.  If you DON'T"
  98. Display "|receive a call, your prefix might not be in the list.  Please"
  99. Display "|leave Len FEEDBACK with your prefix and explain you did not"
  100. Display "|receive a call back and what your prefix is.|"
  101. EndIf
  102. Display "||"
  103. ChangeColor 4 0
  104. Display "                                                ["
  105. ChangeColor 7 0
  106. Display "-"
  107. ChangeColor 4 0
  108. Display "]|"
  109. ChangeColor 11 0
  110. Display "Are you calling outside the 916 area code (y/N)? "
  111. GetChoice YN 6 N
  112. If 6 = "Y"
  113. Display "||"
  114. ChangeColor 4 0
  115. Display "                                                                ["
  116. ChangeColor 7 0
  117. Display "-"
  118. ChangeColor 4 0
  119. Display "]|"
  120. ChangeColor 11 0
  121. Display "Are you listed in your Cities Phone Information Directory? (Y/n) "
  122. GetChoice YN 7 Y
  123. If 7 = "Y"
  124. SetFlag A1 ON
  125. SetFlag B1 ON
  126. Setflag D1 ON
  127. SetSecurity 21
  128. Display "||"
  129. ChangeColor 14 0
  130. Display "|"
  131. ClearScreen
  132. Display "|Thank you for the long distance call.  You are now upgraded"
  133. Display "|to a user level of 21, COMPLIMENTARY CHARTER MEMBER,"
  134. Display "|which will entitle you to FULL bbs access, including; Up/Down"
  135. Display "|loading from all areas, Read/Write Access, extended online"
  136. Display "|time limit, access to Charter Discussion areas, and more,"
  137. Display "|however, you must call once each 60 days to retain this access."
  138. Display "|WARNING!  If you have made a mistake and you are not long"
  139. Display "|distance, or you have tried to deceive me to gain higher access"
  140. Display "|by pretending to be long distance, you will be banned from further"
  141. Display "|use of this bbs FOREVER.  In this case, you MUST leave Len feedback,"
  142. Display "|asking me to reduce you to level 10 (General User) before I"
  143. Display "|discovers your error.  Proceed with this application and save it,"
  144. Display "|but DO NOT use the phone verifer, it is unnecessary now, just"
  145. Display "|proceed to the bbs and enjoy it's use."
  146. Display "|"
  147. Display "|Len Morgan - Sysop|"
  148. Endif
  149. Display "||"
  150. ChangeColor 4 0
  151. Display "                                       ["
  152. ChangeColor 7 0
  153. Display "-"
  154. ChangeColor 4 0
  155. Display "]|"
  156. ChangeColor 11 0
  157. Display "Are you a Amateur Radio Operator (y/N)? "
  158. GetChoice YN 8 N
  159. If 8 = "Y"
  160. Display "||"
  161. ChangeColor 4 0
  162. Display "                               ["
  163. ChangeColor 7 0
  164. Display "----------"
  165. ChangeColor 4 0
  166. Display "]|"
  167. ChangeColor 11 0
  168. Display "What is your Amateur Call Sign? "
  169. Capitalize off
  170. Ask 10 9
  171. ClearScreen
  172. ChangeColor 13 0
  173. Display "Amateur Operators are given General User Level 10.  If you|"
  174. Display "can't or don't want to use the Phone Verifier, Len will|"
  175. Display "manually upgrade your user level, however, by using the|"
  176. Display "Phone Verifier, you will get General User Level quicker.|"
  177. Display "This message is for LOCAL Ham callers only. Long Distance|"
  178. Display "callers disregard this message.|"
  179. Display "|"
  180. Display "Proceed with this application.|"
  181. If 9 = ""
  182. ChangeColor 13 0
  183. Display "|You failed the test! Either logoff or try again from the|"
  184. Display "Phone Verifier Menu, which is in the Main Menu 1 [B] Key.|"
  185. WaitEnter
  186. Quit
  187. Capitalize ON
  188. EndIf
  189. Display "||"
  190. ChangeColor 4 0
  191. Display "                            ["
  192. ChangeColor 7 0
  193. Display "---------------------------------------"
  194. ChangeColor 4 0
  195. Display "]|"
  196. ChangeColor 11 0
  197. Display "How did you learn about QST: "
  198. Capitalize OFF
  199. Ask 40 10
  200. If 10 = ""
  201. ChangeColor 13 0
  202. Display "|You failed the test!  Either logoff or try again from the|"
  203. Display "Phone Verifier Menu, which is in the Main Menu 1 [B] Key.|"
  204. WaitEnter
  205. Quit
  206. EndIf
  207. Capitalize ON
  208. Display "||"
  209. Changecolor 12 0
  210. Display "QST is not liable for any software that damages your"
  211. Display "|computer or programs, Nor, will QST be liable for the"
  212. Display "|security of user information.  QST, will attempt to"
  213. Display "|secure user file areas and control programs, but the"
  214. Display "|users understand that they are using this bbs at their"
  215. Display "|own risk."
  216. Display "||"
  217. ChangeColor 4 0
  218. Display "                            ["
  219. ChangeColor 7 0
  220. Display "-"
  221. ChangeColor 4 0
  222. Display "]|"
  223. ChangeColor 11 0
  224. Display "Do you agree to this? (Y/n): "
  225. GetChoice YN 11 Y
  226. If 11 = "N"
  227. Display "||"
  228. ChangeColor 13 0
  229. Display "|Sorry, but QST cannot be responsible for security and files."
  230. Display "|Your application has been incompleted and your user level"
  231. Display "|will remain unchanged.  Should you change your mind, you can"
  232. Display "|re-enter the application in the [B] Phone Verifier Menu.|"
  233. WaitEnter
  234. Quit
  235. Endif
  236. Display "||"
  237. ChangeColor 4 0
  238. Display "                         ["
  239. ChangeColor 7 0
  240. Display "-"
  241. ChangeColor 4 0
  242. Display "]|" 
  243. ChangeColor 11 0
  244. Display "Save these answers (Y/n)? "
  245. GetChoice YN 12 Y
  246. If 12 = "Y"
  247. SetFlag A7 ON
  248. SetFlag A8 OFF
  249. if 6 = "Y"
  250. SetFlag A7 OFF
  251. EndIf
  252. Display "||"
  253. ClearScreen
  254.  
  255. OutputAnswer "Time:          " 1
  256. OutputAnswer "Sbbs Sysop     " 2
  257. OutputAnswer "Computer:      " 3
  258. OutputAnswer "Age:           " 4
  259. OutputAnswer "Toll:          " 5
  260. OutputAnswer "LD:            " 6
  261. OutputAnswer "Directory Asst " 7
  262. OutputAnswer "Amateur:       " 8
  263. OutputAnswer "Call:          " 9
  264. OutputAnswer "How:           " 10
  265. OutputAnswer "Liability:     " 11
  266. QutputAnswer "               " 12
  267. Quit
  268.